00100	(SETQ *NEW T)
00200	
00300	(SETQ FLIS (QUOTE ((1 ACH) (RED1 . LAP) (WD ACH) (RED2 . LAP))))
00400	
00500	(SETQ IMODE* (QUOTE SYMBOLIC))
00600	
00700	(DEFPROP COMMENT (LAMBDA (U) U) FEXPR)
00800	
00900	(PUTPROP (QUOTE GTS) (GET (QUOTE *EVAL) (QUOTE SUBR)) (QUOTE SUBR))
01000	
01100	(PUTPROP (QUOTE PTS) (GET (QUOTE SET) (QUOTE SUBR)) (QUOTE SUBR))
01200	
01300	(SETQ IECHO* T)
01400	
01500	(SETQ DEV2: (SETQ DEV4: (QUOTE DSK:)))
01600	
01700	(REMPROP (QUOTE DF) (QUOTE FEXPR))
01800	
01900	(DEFPROP CHKSEG (LAMBDA (U) NIL) EXPR)
02000	
02100	(COND ((NOT (EQ DEV4: (QUOTE TTY:)))
02200	       (OUTC (EVAL (LIST (QUOTE OUTPUT) DEV4: (QUOTE (LST2 . RED))))
02300		     T)))
02400	
02500	(INC (EVAL (CONS (QUOTE INPUT) (CONS DEV2: FLIS))))
02600